(******************************************************************************)
(**)                        ОТДЕЛ Вект;
(******************************************************************************
 * НАЗНАЧЕНИЕ: определение векторов
 ******************************************************************************)
ИСПОЛЬЗУЕТ
          Матем;
ВИД
  Вид-    = РЯД ИЗ Матем.Вещ; (* открытый ряд *)
  Доступ- = ДОСТУП К Вид;
  
ЗАДАЧА^ мин-(в-:Вид):Матем.Вещ;  (* наименьший элемент вектора *)
ЗАДАЧА^ макс-(в-:Вид):Матем.Вещ; (* наибольший элемент вектора *)

(******************************************************************************)
ЗАДАЧА мин-(в-:Вид):Матем.Вещ;
ПЕР
  минВ:Матем.Вещ;
  i:ЦЕЛ;
УКАЗ
  минВ:=в[0];
  ОТ i:=1 ДО РАЗМЕР(в)-1 ВЫП
    ЕСЛИ в[i] < минВ ТО 
      минВ:=в[i]
    КОН 
  КОН;
  ВОЗВРАТ минВ
КОН мин;

(******************************************************************************)
ЗАДАЧА макс-(в-:Вид):Матем.Вещ;
ПЕР
  максВ:Матем.Вещ;
  i:ЦЕЛ;
УКАЗ
  максВ:=в[0];
  ОТ i:=1 ДО РАЗМЕР(в)-1 ВЫП
    ЕСЛИ в[i] > максВ ТО 
      максВ:=в[i]
    КОН 
  КОН;
  ВОЗВРАТ максВ
КОН макс;

КОН Вект.